home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO4.DMS / in.adf / Tutorials / Interface / Autocentering.AMOS / Autocentering.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-28  |  1.2 KB  |  32 lines
  1. '************************************* 
  2. '*    AMOS Professional Interface    * 
  3. '*                                   * 
  4. '*          Auto-centering           * 
  5. '*                                   * 
  6. '*      (c) Europress Software       * 
  7. '*                                   * 
  8. '*          Ronnie Simpson           * 
  9. '************************************* 
  10. '
  11. Load "AMOSPro_Tutorial:Tutorials/Interface/Example_resource.abk"
  12. Resource Bank 16
  13. Resource Screen Open 0,640,200,0
  14. Flash Off : Curs Off : Cls 0 : Paper 0 : Pen 8
  15. Palette ,,,,$840,$C84,$FC8,$FEB
  16. Wait Vbl 
  17. Locate 12,12 : Input "Please enter your full name-";N$
  18. Cls 0 : Curs Off 
  19. Ink 9 : Box 0,0 To 639,199
  20. Pen 14 : Locate 0,3 : Centre "Box auto-centered on screen."
  21. Pen 15 : Locate 0,5 : Centre "Box expands to fit name entered."
  22. Pen 13 : Locate 0,19 : Centre "Button auto-centered within box."
  23. A$=A$+"BAse     80,40;"
  24. A$=A$+"SIze     1VATW32+,TH6*;"
  25. A$=A$+"BAse     SW SX-2/,SH SY-2/;"
  26. A$=A$+"SAve     1;"
  27. A$=A$+"BOx      0,0,1,SX,SY;"
  28. A$=A$+"POutline 1VACX,10,1VA,0,3;"
  29. A$=A$+"BUtton   1,SX2/28-,YB8+,56,14,0,0,1;[UNpack 0,0,BP49+;PRint 8,4,'Quit',9;][BQ;]"
  30. A$=A$+"RUn      0,7;"
  31. A$=A$+"EXit;"
  32. X=Dialog Box(A$,1,"Hello "+N$)